The Resonance Theory of Consciousness (RTC) Atlas presents computational models and visualizations for key concepts in resonance-based consciousness ontology. This document integrates the 7 core R programs that form the analytical backbone of RTC research.
These programs demonstrate psychophysical time quanta, resonance patterns, temporal binding, and multi-scale consciousness metrics.
Program 1: Resonance Wave Simulation
Theoretical Foundation: Neural resonance forms the cornerstone of RTC ontology, where consciousness emerges from synchronized oscillatory dynamics across neural populations. This program models a minimalist S-I (Synchronous-Inhibitory) oscillator system using ordinary differential equations (ODEs), capturing the emergence of 40Hz gamma oscillations - the canonical frequency of conscious binding.
Computational Methodology: The deSolve::ode() solver integrates a two-state system where:
S(t) = Synchronous population amplitude, driven by external resonance forcing sin(2πk_rest)
I(t) = Inhibitory population amplitude, providing feedback stabilization
The system exhibits limit cycle behavior, transitioning from initial transients to stable resonant oscillation, demonstrating how micro-scale synchrony seeds macro-scale consciousness.
RTC Significance: This simulation validates RTC’s core hypothesis that consciousness requires persistent resonant structure rather than static connectivity. The observed phase-locking mirrors empirical EEG gamma-band findings during conscious perception.
Code
library(tidyverse)library(ggplot2)library(deSolve)# Resonance wave ODE system - returns EXACTLY 2 derivativesresonance_ode <-function(t, state, parameters) { S <- state[1] # Synchronous population I <- state[2] # Inhibitory population k_res <- parameters["k_res"] theta <- parameters["theta"] dS <-sin(2* pi * k_res * t) - theta * S +0.5* I dI <- theta * S - theta * Ilist(c(dS, dI)) # Exactly 2 derivatives}# Parametersparams <-c(k_res =1/40, theta =0.8)times <-seq(0, 2, by =0.01)state0 <-c(S =0.1, I =0.05)# Solve ODEsol <-ode(y = state0, times = times, func = resonance_ode, parms = params)# FIXED: Use 'time' (lowercase) - deSolve standard column namesol_df <-as_tibble(sol) %>%mutate(t = time) %>%# CHANGED: 'time' not 'Time'select(-time) %>%pivot_longer(c(S, I), names_to ="state", values_to ="amplitude")ggplot(sol_df, aes(x = t, y = amplitude, color = state)) +geom_line(size =1.2) +labs(title ="RTC Program 1: Neural Resonance Wave",subtitle ="Synchronous oscillation emergence (40Hz gamma)",x ="Psychophysical Time (s)", y ="Population Amplitude") +theme_minimal() +scale_color_manual(values =c("S"="#E31A1C", "I"="#1F78B4"))
Resonance wave propagation across simulated neural field.
Program 2: Temporal Binding Window
Theoretical Foundation: RTC posits that conscious integration occurs within discrete temporal binding windows (~50-100ms) mediated by cross-frequency coupling (CFC). Theta (4-8Hz) rhythms gate gamma (30-100Hz) bursts, creating perceptual “frames” that bind multisensory input into unified experience.
Computational Methodology: The model generates amplitude-modulated (AM) coupling:
γ(t) = sin(Φγ(t)) × (1 + 0.5 × sin(Φθ(t)))
where Φγ(t) accumulates phase based on instantaneous frequency fγ(t) = 40 + 8sin(Φθ(t)). Binding strength = |γ(t) × sin(Φθ(t))| quantifies successful cross-scale integration.
RTC Significance: Demonstrates how RTC’s psychophysical time quantum emerges from continuous neural dynamics. The binding strength envelope traces the temporal window where discrete conscious moments crystallize, bridging neural continuity with perceptual discreteness.
Theta-gamma cross-frequency coupling for temporal binding.
Program 3: Consciousness Coordinate System
Theoretical Foundation: RTC formalizes consciousness as a 3D manifold in {Frequency, Phase, Amplitude} coordinate space. Conscious states occupy stable manifolds where small perturbations preserve resonant structure, while unconscious states occupy transient trajectories.
x-axis: Frequency (1-100Hz, neural oscillatory range)
y-axis: Phase (0-2π radians)
z-axis: Normalized amplitude (resonance strength)
RTC Significance: Provides geometric ontology for consciousness states. High-amplitude ridges correspond to phi-like integrated information, while phase valleys represent decoherence (anesthesia, coma). Enables quantification of conscious “distance” between brain states.
3D consciousness coordinate system (frequency × phase × amplitude).
Program 4: Multi-Scale Resonance Cascade
Theoretical Foundation: Consciousness manifests across four spatiotemporal scales: cellular (ms), local circuits (10ms), regional networks (100ms), global workspace (1s). RTC predicts coherence amplification with increasing scale due to recursive resonance.
Theoretical Foundation: RTC’s fundamental innovation - continuous neural time t maps onto discrete perceptual quanta τ ≈ 50ms. Consciousness doesn’t “flow” continuously but instantiates as stroboscopic frames sampling the resonance field.
Computational Methodology:
Generate continuous neural signal: α(12Hz) + γ(40Hz) with exponential decay
Segment into 50ms bins: τᵢ = mean(t ∈ [iτ, (i+1)τ))
Interpolate step function: τ(t) = approx(τᵢ, t)
RTC Significance: Solves hard problem of temporal phenomenology - why subjective time feels discrete despite continuous physics. The step function envelope traces conscious “moments,” matching human temporal resolution limits and 20Hz perceptual flicker fusion.
Code
t_cont <-seq(0, 3, by =0.001)neural_signal <-sin(2*pi*12*t_cont) *exp(-0.1*t_cont) +0.3*sin(2*pi*40*t_cont)# Perceptual time quanta (~50ms)quantum_size <-0.05quantum_times <-seq(0, 3, by = quantum_size)quantum_signal <-sapply(quantum_times, function(tq) {mean(neural_signal[(t_cont >= tq) & (t_cont < tq + quantum_size)], na.rm =TRUE)})# FIXED: Simple tibble with matching lengthsdf_quantum <-tibble(t = t_cont,continuous = neural_signal,quantum =approx(quantum_times, quantum_signal, t_cont, rule =2)$y)ggplot(df_quantum, aes(x = t)) +geom_line(aes(y = continuous), alpha =0.5, color ="gray50", size =0.5) +geom_step(aes(y = quantum), color ="#D55E00", size =1.2) +labs(title ="RTC Program 5: Psychophysical Time Quantum",subtitle ="Continuous neural → discrete perceptual transformation",x ="Physical Time (s)", y ="Signal Amplitude") +theme_minimal()
Continuous → discrete perceptual time transformation.
Program 6: Resonance Ontology Metrics
Theoretical Foundation: RTC generates four quantifiable metrics for empirical validation:
Frequency Precision: Spectral centroid stability (1Hz bandwidth)
Phase Locking Value (PLV): Inter-regional phase synchrony
Cross-Scale Coupling: Hierarchical CFC strength
Composite Φ: Integrated resonance information
Computational Methodology: Simulated across RTC-predicted states:
RTC Significance: Provides null hypothesis test for competing theories. Meditation/Flow show maximal Φ due to enhanced cross-scale coupling, while psychedelics disrupt precision despite high cross-scale values - matching empirical findings.
RTC ontology validation metrics across consciousness states.
Program 7: RTC Atlas Integration
Theoretical Foundation: The complete RTC ontology requires simultaneous visualization of all resonance dimensions. This integrative atlas synthesizes Programs 1-6 into a single multi-scale resonance landscape.
Computational Methodology: patchwork composes:
Top row: Temporal dynamics (P1: waves, P2: binding, P4: scales)
Bottom row: Time quantum transformation (P5)
Color theory: Viridis/Plasma/Mako for perceptual uniformity
RTC Significance: Demonstrates ontological closure - RTC explains consciousness across all scales, metrics, and dynamics simultaneously. The atlas serves as computational proof-of-concept for thesis chapters and provides null model for EEG/fMRI validation studies.
Code
##| fig-cap: "RTC Atlas: Complete multi-dimensional resonance landscape."#| fig-width: 12#| fig-height: 8library(patchwork)# Extract representative data from previous programsp1 <-ggplot(sol_df %>%slice_head(n =250), aes(x = t, y = amplitude, color = state)) +geom_line(size =1.1, alpha =0.9) +scale_color_manual(values =c("S"="#E31A1C", "I"="#1F78B4")) +labs(x ="Time (s)", y ="Amplitude") +theme_void(base_size =10) +theme(legend.position ="none")p2 <-ggplot(binding_df %>%filter(component =="binding_strength") %>%slice_head(n =350), aes(x = time, y = value)) +geom_line(color ="#8A2BE2", size =1.3, alpha =0.9) +labs(x ="Time (s)", y ="Binding Strength") +theme_void(base_size =10)p3 <-ggplot(cascade_df, aes(x = timescale, y = coherence, fill = scale)) +geom_col(width =0.35, alpha =0.85) +scale_x_log10() +scale_fill_viridis_d(option ="mako") +labs(x ="Timescale (s)", y ="Coherence") +theme_void(base_size =10) +theme(legend.position ="none")p4 <-ggplot(df_quantum %>%slice_head(n =500), aes(x = t)) +geom_line(aes(y = continuous), alpha =0.4, color ="gray60", size =0.6) +geom_step(aes(y = quantum), color ="#D55E00", size =1.3) +labs(x ="Time (s)", y ="Amplitude") +theme_void(base_size =10)# Complete RTC Atlas integrationatlas <- (p1 | p2 | p3) / p4 +plot_layout(heights =c(2, 1)) +plot_annotation(title ="RTC ATLAS v2.0: Complete Resonance Theory Landscape",subtitle ="Integrated 7-program computational ontology of consciousness",#caption = "Resonance Theory of Consciousness (RTC) by Edward F. Hillenaar",theme =theme(plot.title =element_text(size =18, hjust =0.5, face ="bold"),plot.subtitle =element_text(size =12, hjust =0.5, color ="gray50"),plot.caption =element_text(size =9, hjust =0.5, color ="gray40") ) ) &theme(plot.margin =margin(10, 10, 10, 10))atlas
References
Chen, Ruiqi, Matthew Singh, Todd S. Braver, and Shi Nung Ching. 2025. “Dynamical models reveal anatomically reliable attractor landscapes embedded in resting-state brain networks.”Imaging Neuroscience 3. https://doi.org/10.1162/imag_a_00442.
Di Santo, Serena, Pablo Villegas, Raffaella Burioni, and Miguel A. Muñoz. 2018a. “Landau–Ginzburg theory of cortex dynamics: Scale-free avalanches emerge at the edge of synchronization.”https://doi.org/10.1073/pnas.1712989115.
———. 2018b. “Landau–Ginzburg theory of cortex dynamics: Scale-free avalanches emerge at the edge of synchronization.”Proceedings of the National Academy of Sciences of the United States of America 115 (7): E1356–65. https://doi.org/10.1073/pnas.1712989115.
Jonas, Mostyn W. 2013. “Electromagnetic Field Theories of Consciousness.”Journal of Consciousness Studies.
Peletier, L A, W Van Saarloos, C Storm, and G Tripathy. 1999. “Dynamical Systems and Nonequilibrium Pattern Formation.” Leiden: Instituut-Lorentz for Theoretical Physics/Mathemamtics Institute.
Pockett, Susan. 2007. “Difficulties with the electromagnetic field theory of consciousness: An update.”NeuroQuantology 5 (3): 271–75. https://doi.org/10.14704/nq.2007.5.3.136.
———. 2016. “Susan Pockett Theory of Consciousness,” no. November 2012.
Saarloos, W. van. 1994. “The Complex Ginzburg-Landau equation for beginners.” In Spatio-Temporal Patterns in Nonequilibrium Complex Systems, edited by P. E. Cladis and P. Palffy-Muhoray. Reading: Addison-Wesley.
Shraiman, B. I., A. Pumir, W. van Saarloos, P. C. Hohenberg, H. Chaté, and M. Holen. 1992. “Spatiotemporal chaos in the one-dimensional complex Ginzburg-Landau equation.”Physica D 57: 241–48.
Stam, C. J. 2005. “Nonlinear dynamical analysis of EEG and MEG: Review of an emerging field.”Clinical Neurophysiology 116 (10): 2266–2301. https://doi.org/10.1016/j.clinph.2005.06.011.
———. n.d. The Calculus of Friendship. What a Teacher and a Student Learned about Life While Corresponding. More Free Book. https://doi.org/10.1515/9781400830886.
Strupp, Wolfram. 2024. “A new variant of the electromagnetic field theory of consciousness: approaches to empirical confirmation.”Frontiers in Neurology 15 (October): 1–13. https://doi.org/10.3389/fneur.2024.1420676.
Talbot, Michael. 1991. The Holographic Universe. Dublin: HarperCollins Publishers.